TYPES OF ANTICIPATED ACTIVITY 



Very Low Activity 

1 (Relaxation / Minimal Physical Exertion) 



2 



Low Activity 

(Heightened Awareness / Slight 
Physical Exertion) 



Low to Moderate Activity 
(Interaction / Higher Levels of Physical 
Exertion) 



Moderate to High Activity 

(Heightened Physical Activity) 



High Activity 

(High Levels of Physical Exertion / 
Frequent Interaction) 



Very High Activity 

O (Exercise & High Energy 
Activities) 
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AVAILABLE LIGHT / ALL SOURCES 

1 DARK 




3 



LOW LIGHT 



MODERATE LIGHT 



BRIGHT LIGHT 



VERY BRIGHT LIGHT 
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Figiire 3 



ROOM EXPOSURE 



Southern Exposure 




.^1 



Western Exposure 



Southeastern Exposure 



Northwestern Exposure 



Eastern Exposure 



Northern Exposure 



No Windows 









DESIRED SPATIAL EFFECTS 



1 



LARGE AND OPEN 
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Your Personal Room Color Profile 

Room Selected: I 

Your Favorite Color Family: 

Blue / Blue- Violet / Blue-Green Q 

Yellow / Yellow-Green / Yellow-Orange (3 

Red /Red-Orange /Red-Violet Q 
Types of Anticipated Activity: 

Very Low Activity Q 

Low Activity Q 

Low- Moderate Activity O 

Higti - Moderate Activity Q 

High Activity Q 

Very Higti Activity Q 
Typical Room Occupancy: 

Solitary Q 

Couples Q 

Family Q 

More Family Q 

Discussions / Meetings Q 

Parties / Large Groups Q 

Available Light/ AH Sources: 

Dark Q 
Low light Q 
Moderate Q 
Bright O 
Very Bright Q 
Room Exposure: 

South Q 
West Q 
Southeast Q 
Northwest Q 
East O 
North CD 
No Exterior Exposure Q 
Desired Spatial Effect: 

Large and Open Q 
Large but Contained n 
Small but Spacious Q 
Small and Cozy Q 
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1 . Select room to be decorated. 

2. Choose favorite Basic Color Family 

3. On a scale of 1 to 10, estimate the 
level of activity anticipated for this 
space. 

10 might indicate a 
recreational space where, 
for example, people might 
be shooting pool, dancing, 
exercising, etc, 1 might 
indicate a room for sleeping, 
reading, or simply 
meditating, 

4. Next, estimate the number of people 
that will typically use the room. 

10 would indicate large 
numbers of people; 1, 
solitary use such as a library 
or individual bedroom. 



5. Now estimate the amount of natural 
light available in the room with 5 
indicating no natural light, and 1 
indicating a large amount. 

6. Guage the approximate exposure of 
the room, 

7. Finally, consider spatial emphasis; 
how do you want to either enhance 
or overcome the room's inherent 
spatial limitations? Do you want the 
room to appear large and open, 
small and cozy, or somewhere in 
between? 



1 . Together, designer & client choose. 

2. Reduces number of columns to 26. 

3. Moves target indicator two columns 
in any given direction depending on 
the level of activity indicated by the 
customer. A ten would select the 
last two columns on the right in the 
direction of warmer colors; a three 
would select the 5^ and 6^ columns 
from the left boundary of the color 
family. 



4, Fixes the target indicator on the row 
with 10 being on Row 1, 9 on Row 2, 
8 on Row 3, etc. The target area is 
expanded four rows and four 
columns on each side from the 
intersection between the columns of 
step 3 and the target row chosen, 

5, A choice of 4or 5 moves the range to 
the top four rows of the target; 
choosing 3 to the middle four rows; 1 
or 2 to the bottom four rows. 

6, N or E corresponds to the wannest 
two columns; etc. 

7, The final eight choices are divided 
into quadrants, with each quadrant 
representing one of the four 'spatial 
emphases. Small & cozy matches 
up with the wannest and darkest two 
of the eight colors, etc. 
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Sheet 1 - 1 

Private Sub Worksheet^Select lonChange (ByVal Target As Excel, Range) 
End Sub 
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Sheets - 1 

Private Sub Worksheet_SelectionChange (ByVal Target As Excel. Range) 
End Sub 
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Private Sub Workbook_Open ( ) 

' Clear worksheets 2 thru 6 

Sheets ("ColorPref") .Select 
Range ("AliZlO") .Clear 
Sheets :"ActOcc") .Select 
Range I "Ai: 05") .Clear 
Sheets {"LitExp") .Select 
Range ("AlrZlO") .Clear 
Sheets ("RESULTS") .Select 
Range f"Al:Z10"} .Clear 

' Turn off alerts 

Application. DisplayAlerts = False 

Show splash screen 
User Forin2 . Show 

End Sub 
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.. activityLvi 
Dim noOccupants 
Dim lightLvi 
Dim exposeLvl As String 
Dim exposeNo 
Dim rowCencer 
Dim rowTop 
Dim rowBottom 
Dim colCenter 
Dim colLeft 
Dim colRight 
Dim rowCount 
Dim colCount 

Private Sub AboutButton_Click ( } 

About Info 
End Sub 

Private Sub ExitButton_Click { ) 
Appli cat ion. Quit 

End Sub ^ 

Private Sub FindButton__Click ( ) 

' Set color family 

SheetsC'Color Chart") . Select 

If Color. Text « "Blue / Blue-Green / Blue-Violet Family" Then 

Range ("Blue") .Select 
Elself Color. Text = "Yellow / Yellow-Green / Yellow-Orange Family" Then 

Range ("Yellow") .Select 
Elself Color. Text =^ "Red / Red-Orange / Red-Violet Family" Then 
Range ("Red") .Select 

Else 

MsgBox "Input error, programs halts.", vbcritial + vbOKOnly, 

"Error 
Exit Sub 
End If 
Selection .Copy 
Sheets { "ColorPref ") .Select 
Range {"Al") .Select 
ActiveSheet . Paste 

' Set activity and occupancy levels 
activityLvi = CInt (Activity , Text } 
noOccupants = CInt (Occupancy . Text } 

' Initialize counters 
rowCount = 0 
colCount = 0 

' Figure new range center 

rowCenter = Int(9 - activityLvi) 
rowTop = rowCenter - 2 
rowBottom = rowCenter + 2 
colCenter = Int(3.4 * noOccupants + 1.6) 
colLeft = colCenter - 4 
colRight = colCenter + 4 

elect cells and copy — > ActOcc tab 
For colNumber = colLeft To colRight 
colCount = colCount + 1 
For rowNumber = rowTop To rowBottom 
rowCount = rowCount + 1 
Sheets ( "ColorPref") , Select 

Figure lOD 
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UserForir.l - 2 

Cells (rowNumber, colNumber) .Select 

Sei ect ion - Copy 

Sheets ( "ActOcc") . Select 

Cells (rowCount, colCount) .Select 

ActiveSheet , Paste 

Next 

rowCcont = C 

Next 

Set iignt and exposure levels 
lightLvi = CInt (Light .Text) 
exposeLvl == Expose. Text 
If exposeLvl = "South" Then 

exposeNo = 1 
Elselx exposeLvl = "West" Then 

exposeNo = 1 
Elself exposeLvl = "Southeast" Then 

exposeNo = 2 
Elself exposeLvl = "Northwest" Then 
exposeNo 3 
l^l Elself exposeLvl = "East" Then 

fl exposeNo = 4 

Elself exposeLvl =: "North" Then 

exposeNo = 4 
Elself exposeLvl = "No windows" Then 
exposeNo = 5 

Else 

MsgBox "Input error, programs halts.", vbcritial + vbOKOnlv 
"Error!" ^' 
Exit Sub 
End If 

' Initialize counters 
rowCount = 0 
colCount = 0 

Figure new range center 

rowCenter = Int(0.5 * lightLvl + 1.5) 
rowTop = rowCenter - 1 
rowBottom = rowCenter + 1 
colCenter = Int (exposeNo + 2) 
colLeft = colCenter - 2 
coIRight = colCenter + 2 

Select cells and copy — > LitExp tab 
For colNumber = colLeft To colRight 
colCount = colCount + 1 
For rowNumber = rowTop To rowBottom 
rowCount = rowCount + 1 
Sheets ("ActOcc") .Select 
Cells (rowNumber, colNumber) .Select 
Selection. Copy 
Sheets ("LitExp"} .Select 
Cells (rowCount, colCount) .Select 
ActiveSheet .Paste 

Next 

rowCount = 0 

Next 

' Spatial emphasis effects 

If Spatial. Text = "Large & Open" Then 
rowTop = 1 
rowBottom = 2 
colLeft = 1 
colRight = 3 

Elself Spatial. Text = "Large but Contained" Then 



rowTop = 1 
rowBottom = 2 
colLeft = 3 
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cclRigiit = 3 
Elself Spatial. Text = "Small but Spacious" Then 

rowTop = 2 

rowBortom = 5 

cclLeft = 1 

colRight - 3 
Elself Spatial. Text = "Small & Cozy" Then 

rowTop = 2 

rowBottom = 3 

colLeft = 3 

colRight = 5 

Else 

MsgBox "Input error^ programs halts.", vbcritial + vbOKOnly^ 

"Error!" ~ 
Exit Sub 
End If 

' Initialize counters 
rowCount = 0 
colCount = 0 

' Select cells and copy — > RESULTS tab 
For colNuihber = colLeft To colRight 
colCount = colCount + 1 
For rowNumber = rowTop To rowBottom 

rowCount = rowCount + 1 

Sheets ("LitExp") .Select 

Cells {rowNumber, colNumber) . Select 

Selection. Copy 

Sheets ("RESULTS") .Select 

Cells (rowCount , colCount ). Select 

ActiveSheet . Paste 

Next 

rowCount = 0 

Next 

' Present results 
UserForml . Hide 
UserFormB . Show 

End Sub 

Private Sub Reset Button_Click {) 
' Reset form 

Color. Text = "Blue / Blue-Green / Blue-Violet Family" 

Activity .Text - "1" 

Occupancy .Text = "1" 

Light. Text = "1" 

Expose. Text = "South" 

Spatial. Text = "Large & Open" 
' Reset worksheets 

Sheets ("ColorPref") .Select 

Range ("A1:Z10") .Clear 

Sheets ("Act Occ") .Select 

Range( "A1:I5"} .Clear 

Sheets ("LitExp") , Select 

Range {"A1;E3") .Clear 

Sheets ("RESULTS") .Select 

Range ("AI:C2") .Clear 
End Sub 

Private Sub UserForm_Initialize ( ) 

Color. List {) = Array("Blue / Blue-Green / Blue-Violet Family", _ 

"Yellow / Yellov/-Green / Yellow-Orange Family", _ 

"Red / Red-Orange / Red-Violet Family") 
Activity. List () - Array("l", "2", "3", "4", "5", "6") 
Occupancy. List 0 -Array("l", "2", "3", "4", "5", "6") 
Light. ListO = Array("l", "2", "3", "4", "5") 

Expose. List 0 = Array ("South", "West", "Southeast", 4 
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"Northwest", "East", "North", "No windows") 

Spatial. List = Array ("Large & Open", "Large but Contained", 
"Small but Spacious", "Small & Cozy") 
' Reset Worksheets 

Sheet s "ColorFref" ; .Selecx: 

Range /"Ai:Z10"} .Clear 

Sheets I "ActOcc") .Select 

Range {"Al: 15") .Clear 

Sheets ("LitExp") .Select 

Rangei"Ai:E3"} .Clear 

Sheets {"RESULTS") .Select 

Range ("A1:C2") .Clear 
End Sub 



Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 
If CloseMode vbFormControlMenu Then 

MsgBox "You can't close this form like that.", vbOKOnly, "Error!" 
Cancel = True 
End If 
End Sub 
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* NorthStar CGS Splash Screen 

Private Sub UserFonn_Acti vate ( ) 

Application.OnTime Now + TimeValue ("00:00: 03") ^ "KiliTheForm" 
End Sub 

L _vate Sub Use rForm_QueryClose {Cancel As Integer, CloseMode As Integer) 
If CloseMode = vbFormControlMenu Then 

MsgBox "You can't close this form like that.", vbOKOnly, "Error'" 
Cancel ^ True 
End If 
End Sub 
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* Results presentation dialog box 
Private Sub returnBut ton__Cl ick ( ) 

Unload UserFormS 

UserForml , Sho\^ 
F Sub 

Private Sub UserForm_OueryClose (Cancel As Integer, CIoseMode As Integer) 
If CIoseMode = vbFormControlMenu Then 

MsgBox "You can't close this form like that.", vbOKOnly, "Error I'* 
Cancel - True 
End If 
End Sub 
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^ About Box verbage 
Sub AboutlnfoO 

Aboutl$ = "NorthStar Color Guidance System" 

About:2$ - "Version 1.00.10 BETA Build 315" 

Abour3$ - "Copyright 1999 NorthStar Marketing Co., LLC" 

Aboiit4$ = "All rights reserved." 

AbouttitleS = "About this program..." 

MsgBox Aboutl$ & Chr$(13} & Chr$(13) & AbouT:23 & ChrS{131 & 
About3S & Chr$a3) & About4$, vbinf ormation, AbouttitleS 

End Sub 
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Private Sub KillTheForni { ) 
Unload UserForm2 
user Form 1 .Show 

End Sue 
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